home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1992-09-02 | 2.4 KB | 77 lines |
- ANFANG:
- Screen Open 1,640,256,16,Hires : Screen Close 0 : Colour 1,$0
- Limit Mouse 130,44 To 447,297
- Curs Off : Cls 0 : Flash Off
- Curs Off
- Menu$(1)="IFF-Master"
- Menu$(1,1)="�ber "
- Menu$(1,1,1)=" IFF-Master "
- Menu$(1,1,2)="------------"
- Menu$(1,1,3)="Version 1.0 "
- Menu$(1,1,4)=" "
- Menu$(1,1,5)="Programmiert"
- Menu$(1,1,6)=" von: "
- Menu$(1,1,7)=" "
- Menu$(1,1,8)=" Frank Otto "
- Menu$(1,2)="Beenden "
- Menu$(2)=" Bild "
- Menu$(2,1)="Laden "
- Menu$(3)=" Animation "
- Menu$(3,1)="Laden "
- Menu$(4)=" Musik"
- Menu$(4,1)="Soundtracker-Module laden"
- Menu$(4,2)="Musik aus "
- Channel 0 To Screen Offset 1
- Channel 1 To Screen Offset 1
- Channel 2 To Screen Offset 1
- Channel 3 To Screen Offset 1
- Bar 0,1 To 639,10
- Paper 2 : Pen 1 : Text 0,8,"IFF-Master V1.0 Programmiert von Frank Otto. W�hle Men�-Option "
- Do
- If Key State(77) Then Amal On 0
- If Key State(76) Then Amal On 1
- If Key State(79) Then Amal On 2
- If Key State(78) Then Amal On 3
- Amal 1,"M 0,-10,0"
- Amal 0,"M 0,10,0"
- Amal 2,"M -10,0,0"
- Amal 3,"M 10,0,0"
- Menu On : Rem Men� einschalten
- On Menu Proc MENU1,MENU2,MENU3,MENU4 : Rem Men�titeln Prozeduren zuweisen
- On Menu On : Rem Abfragesystem einschalten
- Loop
- Procedure MENU1
- Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe l�schen
- If Choice(2)=1 : Rem war es der erste Men�punkt?
- Else
- Fade 1 : Wait 15 : End
- End If
- On Menu On : Rem Abfragesystem wieder aktivieren!!
- End Proc
- Procedure MENU2
- Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe l�schen
- If Choice(2)=1 : Rem war es der erste Men�punkt?
- Colour 1,$0 : Curs Off : Flash Off
- F$=Fsel$("","","Low-Res, Hi-Res, Interlace, EHB oder HAM Bild laden")
- If Exist(F$) : Load Iff F$,1 : End If
- End If
- On Menu On : Rem Abfragesystem wieder aktivieren!!
- End Proc
- Procedure MENU3
- Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe l�schen
- If Choice(2)=1 : Rem war es der erste Men�punkt?
- F$=Fsel$("","","IFF-Animation laden")
- If Exist(F$) : Iff Anim F$ To 0,1 : Screen Close 0 : End If
- End If
- On Menu On : Rem Abfragesystem wieder aktivieren!!
- End Proc
- Procedure MENU4
- Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe l�schen
- If Choice(2)=1 : Rem war es der erste Men�punkt?
- F$=Fsel$("","","Soundtracker-Module laden")
- If Exist(F$) : Track Load F$,5 : Track Play 5 : End If
- Else
- Track Stop
- End If
- On Menu On : Rem Abfragesystem wieder aktivieren!!
- End Proc